home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / MENUMSG.INC < prev    next >
Text File  |  1989-08-10  |  243b  |  12 lines

  1. procedure MENUMSG (Msg: text80);
  2. { Output a message in the main menu, showing current status }
  3.  
  4. var i: integer;
  5.  
  6. begin
  7.   gotoXY (1,15);
  8.   write (Msg);
  9.   for i := 1 to (50-length(Msg)) do
  10.     write (' ');
  11. end; { procedure MENUMSG }
  12.